home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / Balancing.e < prev    next >
Encoding:
Text File  |  2002-10-28  |  2.5 KB  |  92 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w,g,b,font
  7.  
  8.    font := 'Garnet/16'
  9.  
  10.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  11.       c := ClientObject,
  12.          FA_Client_Title,        'Balancing',
  13.          FA_Client_Version,      '$VER: Balancing 1.00 (23-09-02)',
  14.          FA_Client_Copyright,    '©2000-2002, Olivier Laviale',
  15.          FA_Client_Author,       'Olivier Laviale - (lotan9@aol.com)',
  16.          FA_Client_Description,  'Show balancing groups',
  17.          FA_Client_Base,         'BALANCING',
  18.  
  19.          Child, w := WindowObject,
  20.             FA_ID,           "MAIN",
  21.             FA_Window_Title, 'Feelin : Balancing',
  22.  
  23.             Child, g := VGroup,
  24.                Child, VGroup,
  25.                   Child, HGroup, /*FA_MaxHeight, 50, FA_MinWidth, 500,*/
  26.                      Child, colorbutton('c:FF0000','Red'),
  27.                      Child, colorbutton('c:FFFF00','Yellow'),
  28.                      Child, BalanceID(10),
  29.                      Child, colorbutton('c:00FF00','Green',[FA_Fixed,TRUE,NIL]),
  30.                      Child, colorbutton('c:00FFFF','Cian'),
  31.                      Child, colorbutton('c:0000FF','Blue'),
  32.                   End,
  33.  
  34.                   Child, BalanceID(11),
  35.  
  36.                   Child, HGroup, FA_MaxWidth,300, /*FA_MaxHeight, 50, FA_MinWidth, 500,*/
  37.                      Child, colorbutton('c:FFFFFF','White'),
  38.                      Child, BalanceID(12),
  39.                      Child, colorbutton('c:000000','Black',[FA_Pen_Text,'c:FFFFFF',NIL]),
  40.                   End,
  41.  
  42.                   Child, colorbutton('1:FF00FF','Magenta'),
  43.                End,
  44.  
  45.                Child, VGroup,
  46.                   Child, Bar,
  47.  
  48.                   Child, b := TextObject,
  49.                      FA_InputMode,        FV_InputMode_Toggle,
  50.                      FA_Fixed,            TRUE,
  51.                      FA_Inner,            [6,3,6,3]:CHAR,
  52.                      FA_Frame,            033,
  53.                      FA_AltFrame,         000,
  54.                      FA_Back,             FI_Fill,
  55.                      FA_AltBack,          FI_Dark,
  56.                      FA_Text,             'T_oggle FA_Balance_QuickDraw',
  57.                      FA_Text_PreParse,    '`Ss`Sh`<0>',
  58.                      FA_Text_AltPreParse, '`Sn`<1>',
  59.                      FA_Text_VCenter,     TRUE,
  60.                   End,
  61.                End,
  62.             End,
  63.          End,
  64.       End
  65.  
  66.       IF c
  67.          F_DoA(b,FM_Notify,[FA_Selected,FV_Notify_Always,g,5,FM_Set,FA_Balance_QuickDraw,FV_Notify_Value,FA_Group_Forward,TRUE])
  68.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE, FV_Notify_Client, 2,FM_Client_ReturnID,FV_Client_Quit])
  69.          F_Set(w,FA_Window_Open,TRUE)
  70.  
  71.          F_DoA(c,FM_Client_Run,NIL)
  72.  
  73.          F_DisposeObj(c)
  74.       ENDIF
  75.  
  76.       CloseLibrary(feelinbase)
  77.    ENDIF
  78. ENDPROC
  79.  
  80. PROC colorbutton(ispec,label,tags=NIL)
  81.    RETURN TextObject,
  82.           FA_Back,            ispec,
  83.           FA_AltBack,         FI_Highlight,
  84.           FA_InputMode,       FV_InputMode_Release,
  85.           FA_Font,            'Garnet/16',
  86.           FA_Text,            label,
  87.           FA_Text_VCenter,    TRUE,
  88.           FA_Text_PreParse,   '`c',
  89.           TAG_MORE,           tags,
  90.           End
  91. ENDPROC
  92.